home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / feel0_89.lha / Feel / Src / bvf.h < prev    next >
C/C++ Source or Header  |  1993-07-12  |  741b  |  28 lines
  1. /* 
  2.   * Definition of Bytevector functions
  3.   *
  4. */
  5.  
  6. /* External interface */
  7. #ifdef BCI
  8.  
  9. LispObject apply_nary_bytefunction(LispObject */*stacktop*/, int args, LispObject fn);
  10. void add_boot_module(LispObject);
  11.  
  12. /* Internal reperesentation */
  13. #define N_SLOTS_IN_BYTEFUNCTION  5
  14.  
  15. /* represented as: module #, offset */
  16. /* better would be codevector, offset, static vector ? */
  17.  
  18. #define bytefunction_env(bvf)        slotref(bvf,0)
  19. #define bytefunction_offset(bvf)    slotref(bvf,1)
  20. #define bytefunction_nargs(bvf)        slotref(bvf,2)
  21. #define bytefunction_globals(bvf)    slotref(bvf,3)
  22. #define bytefunction_code(bvf)        vref(bytefunction_globals(bvf),0)
  23. #define bytefunction_setter(bvf)    slotref(bvf,4)
  24.  
  25. #define extbytefunction_info(ebvf)        slotref(ebvf,5)
  26.  
  27. #endif
  28.